inherited FCreditoCliente: TFCreditoCliente
  Left = 182
  Top = 113
  BorderStyle = bsDialog
  Caption = 'Cr'#233'dito do Cliente'
  ClientHeight = 520
  Constraints.MaxHeight = 558
  Constraints.MinHeight = 435
  Constraints.MinWidth = 652
  OldCreateOrder = True
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    Height = 520
    ActivePage = TsCadastro
    TabIndex = 1
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        Top = 432
      end
      inherited dbgPesquisaPadra: TDBGrid
        Height = 375
        Columns = <
          item
            Expanded = False
            FieldName = 'CLI_CODIGO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_RAZAO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_VALOR_LIMITE'
            Title.Alignment = taRightJustify
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_VALOR_CREDITO'
            Title.Alignment = taRightJustify
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        Height = 489
        object Label2: TLabel [0]
          Left = 9
          Top = 192
          Width = 28
          Height = 16
          Caption = 'Obs:'
        end
        inherited panel2: TPanel
          inherited BtnIncluir: TBitBtn
            Left = 709
            Top = 10
            Width = 67
            Height = 14
            TabStop = False
            Visible = False
          end
          inherited BtnEditar: TBitBtn
            Left = 5
          end
          inherited BtnFechar: TBitBtn
            Left = 539
          end
          inherited BtnExcluir: TBitBtn
            Left = 736
            Top = 13
            Width = 72
            Height = 12
            TabStop = False
          end
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
          inherited streg: TStaticText
            Left = 577
          end
        end
        inherited panel3: TPanel
          Top = 398
          Height = 90
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
          inherited BtnSalvar: TBitBtn
            Left = 634
            Top = 45
          end
          inherited BtnCancelar: TBitBtn
            Left = 739
            Top = 45
          end
          inherited stSituacaoReg2: TStaticText
            Left = 279
            Top = 41
          end
        end
        object Panel4: TPanel
          Left = 1
          Top = 36
          Width = 842
          Height = 63
          Align = alTop
          Color = clSilver
          TabOrder = 2
          object Label11: TLabel
            Left = 6
            Top = 5
            Width = 42
            Height = 15
            Caption = 'C'#243'digo:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label12: TLabel
            Left = 6
            Top = 25
            Width = 74
            Height = 15
            Caption = 'Raz'#227'o Social:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label14: TLabel
            Left = 6
            Top = 44
            Width = 50
            Height = 15
            Caption = 'Fantasia:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object DBText4: TDBText
            Left = 101
            Top = 5
            Width = 49
            Height = 17
            DataField = 'CLI_CODIGO'
            DataSource = dsCadastro
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
          object DBText7: TDBText
            Left = 101
            Top = 25
            Width = 490
            Height = 17
            DataField = 'CLI_RAZAO'
            DataSource = dsCadastro
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
          object DBText6: TDBText
            Left = 101
            Top = 44
            Width = 490
            Height = 18
            DataField = 'CLI_FANTASIA'
            DataSource = dsCadastro
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
          object Label13: TLabel
            Left = 174
            Top = 5
            Width = 37
            Height = 15
            Caption = 'CNPJ:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object DBText5: TDBText
            Left = 224
            Top = 5
            Width = 132
            Height = 17
            DataField = 'CLI_CPFCNPJ'
            DataSource = dsCadastro
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
        end
        object GBCredito: TGroupBox
          Left = 1
          Top = 107
          Width = 502
          Height = 81
          Caption = '  Limite de Compra  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 3
          object Label39: TLabel
            Left = 145
            Top = 22
            Width = 30
            Height = 16
            Caption = 'Valor'
          end
          object Label1: TLabel
            Left = 14
            Top = 21
            Width = 27
            Height = 16
            Caption = 'Data'
          end
          object RxDBCLimiteCredito: TRxDBCalcEdit
            Left = 145
            Top = 41
            Width = 102
            Height = 23
            DataField = 'CLI_VALOR_LIMITE'
            DataSource = dsCadastro
            Ctl3D = False
            DisplayFormat = '0.,00'
            ButtonWidth = 0
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 1
          end
          object DBDData: TDBDateEdit
            Left = 14
            Top = 39
            Width = 102
            Height = 24
            DataField = 'CLI_DATA_LIMITE'
            DataSource = dsCadastro
            ButtonWidth = 18
            NumGlyphs = 2
            TabOrder = 0
          end
          object gbSituacaoCredito: TDBRadioGroup
            Left = 266
            Top = 21
            Width = 226
            Height = 44
            Caption = '  Situa'#231#227'o  p/ Venda  '
            Columns = 2
            Ctl3D = False
            DataField = 'CLI_SITUACAO_CREDITO'
            DataSource = dsCadastro
            Items.Strings = (
              'Liberado'
              'Bloqueado')
            ParentCtl3D = False
            TabOrder = 2
            Values.Strings = (
              'L'
              'B')
          end
        end
        object GroupBox1: TGroupBox
          Left = 502
          Top = 107
          Width = 134
          Height = 81
          Caption = '  Cr'#233'dito Atual  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 4
          object Label40: TLabel
            Left = 15
            Top = 22
            Width = 30
            Height = 16
            Caption = 'Valor'
          end
          object RxDBCCredito: TRxDBCalcEdit
            Left = 15
            Top = 41
            Width = 102
            Height = 23
            DataField = 'CLI_VALOR_CREDITO'
            DataSource = dsCadastro
            Ctl3D = False
            DisplayFormat = '0.,00'
            ButtonWidth = 0
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 0
          end
        end
        object DBMObsLimite: TDBMemo
          Left = 9
          Top = 210
          Width = 625
          Height = 100
          Ctl3D = False
          DataField = 'CLI_OBS_LIMITE'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 5
        end
      end
    end
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'SELECT * FROM cliente order by cli_CODIGO'
      '')
  end
  inherited cdsCadastro: TClientDataSet
    object cdsCadastroCLI_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CLI_CODIGO'
    end
    object cdsCadastroCLI_RAZAO: TStringField
      DisplayLabel = 'Cliente'
      FieldName = 'CLI_RAZAO'
      Size = 60
    end
    object cdsCadastroCLI_FANTASIA: TStringField
      DisplayLabel = 'Cliente'
      FieldName = 'CLI_FANTASIA'
      Size = 60
    end
    object cdsCadastroCLI_TIPOCLIENTE: TStringField
      FieldName = 'CLI_TIPOCLIENTE'
      Size = 1
    end
    object cdsCadastroCLI_CPFCNPJ: TStringField
      FieldName = 'CLI_CPFCNPJ'
    end
    object cdsCadastroCLI_INSCESTADUAL: TStringField
      FieldName = 'CLI_INSCESTADUAL'
    end
    object cdsCadastroCLI_INSCMUNICIPAL: TStringField
      FieldName = 'CLI_INSCMUNICIPAL'
    end
    object cdsCadastroCLI_FONE: TStringField
      FieldName = 'CLI_FONE'
    end
    object cdsCadastroCLI_FAX: TStringField
      FieldName = 'CLI_FAX'
    end
    object cdsCadastroCLI_EMAIL: TStringField
      FieldName = 'CLI_EMAIL'
      Size = 62
    end
    object cdsCadastroCLI_IDENTENDCORRESP: TStringField
      FieldName = 'CLI_IDENTENDCORRESP'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDPEDIDO: TStringField
      FieldName = 'CLI_IDENTENDPEDIDO'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDDUPLICATA: TStringField
      FieldName = 'CLI_IDENTENDDUPLICATA'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDNF: TStringField
      FieldName = 'CLI_IDENTENDNF'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDBLOQUETE: TStringField
      FieldName = 'CLI_IDENTENDBLOQUETE'
      Size = 2
    end
    object cdsCadastroCLI_ENDERECOCORRESP: TStringField
      FieldName = 'CLI_ENDERECOCORRESP'
      Size = 60
    end
    object cdsCadastroCLI_BAIRROCORRESP: TStringField
      FieldName = 'CLI_BAIRROCORRESP'
      Size = 60
    end
    object cdsCadastroCLI_CEPCORRESP: TStringField
      FieldName = 'CLI_CEPCORRESP'
      Size = 10
    end
    object cdsCadastroCLI_CIDADECORRESP: TStringField
      FieldName = 'CLI_CIDADECORRESP'
      Size = 60
    end
    object cdsCadastroCLI_ESTADOCORRESP: TStringField
      FieldName = 'CLI_ESTADOCORRESP'
      Size = 2
    end
    object cdsCadastroCLI_ENDERECOPEDIDO: TStringField
      FieldName = 'CLI_ENDERECOPEDIDO'
      Size = 60
    end
    object cdsCadastroCLI_BAIRROPEDIDO: TStringField
      FieldName = 'CLI_BAIRROPEDIDO'
      Size = 60
    end
    object cdsCadastroCLI_CEPPEDIDO: TStringField
      FieldName = 'CLI_CEPPEDIDO'
      Size = 10
    end
    object cdsCadastroCLI_CIDADEPEDIDO: TStringField
      FieldName = 'CLI_CIDADEPEDIDO'
      Size = 60
    end
    object cdsCadastroCLI_ESTADOPEDIDO: TStringField
      FieldName = 'CLI_ESTADOPEDIDO'
      Size = 2
    end
    object cdsCadastroCLI_VENDEDOR: TIntegerField
      FieldName = 'CLI_VENDEDOR'
    end
    object cdsCadastroCLI_OBS: TStringField
      FieldName = 'CLI_OBS'
      Size = 255
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroCLI_CONTATO: TStringField
      FieldName = 'CLI_CONTATO'
      Size = 60
    end
    object cdsCadastroCLI_CONTACONTABIL: TIntegerField
      FieldName = 'CLI_CONTACONTABIL'
    end
    object cdsCadastroCLI_SITUACAO: TSmallintField
      FieldName = 'CLI_SITUACAO'
    end
    object cdsCadastroCLI_PERCIRRF: TFloatField
      FieldName = 'CLI_PERCIRRF'
    end
    object cdsCadastroCLI_PERCISS: TFloatField
      FieldName = 'CLI_PERCISS'
    end
    object cdsCadastroCLI_PERCPIS: TFloatField
      FieldName = 'CLI_PERCPIS'
    end
    object cdsCadastroCLI_PERCCOFINS: TFloatField
      FieldName = 'CLI_PERCCOFINS'
    end
    object cdsCadastroCLI_PERCCSLL: TFloatField
      FieldName = 'CLI_PERCCSLL'
    end
    object cdsCadastroCLI_PERCINSS: TFloatField
      FieldName = 'CLI_PERCINSS'
    end
    object cdsCadastroCLI_RETEMISS: TSmallintField
      FieldName = 'CLI_RETEMISS'
    end
    object cdsCadastroCLI_GRUPO: TStringField
      FieldName = 'CLI_GRUPO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCLI_CODIGO_LOGISTICA: TIntegerField
      FieldName = 'CLI_CODIGO_LOGISTICA'
    end
    object cdsCadastroCLI_CENTROCUSTO: TIntegerField
      FieldName = 'CLI_CENTROCUSTO'
    end
    object cdsCadastroCLI_CLASSIFICACAO: TIntegerField
      FieldName = 'CLI_CLASSIFICACAO'
    end
    object cdsCadastroHIDROMETRO_LOGISITICA: TIntegerField
      FieldName = 'HIDROMETRO_LOGISITICA'
    end
    object cdsCadastroCLI_RETEMINSS: TSmallintField
      FieldName = 'CLI_RETEMINSS'
    end
    object cdsCadastroCLI_RETEMIRRF: TSmallintField
      FieldName = 'CLI_RETEMIRRF'
    end
    object cdsCadastroCLI_RETEMPIS: TSmallintField
      FieldName = 'CLI_RETEMPIS'
    end
    object cdsCadastroCLI_RETEMCOFINS: TSmallintField
      FieldName = 'CLI_RETEMCOFINS'
    end
    object cdsCadastroCLI_RETEMCSLL: TSmallintField
      FieldName = 'CLI_RETEMCSLL'
    end
    object cdsCadastroCLI_TIPOVENDA: TIntegerField
      FieldName = 'CLI_TIPOVENDA'
    end
    object cdsCadastroCLI_FK_GRUPO: TIntegerField
      FieldName = 'CLI_FK_GRUPO'
    end
    object cdsCadastroCLI_CV: TFloatField
      FieldName = 'CLI_CV'
    end
    object cdsCadastroCLI_SITUACAO_CREDITO: TStringField
      FieldName = 'CLI_SITUACAO_CREDITO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCLI_VALOR_LIMITE: TFloatField
      DisplayLabel = 'Limite de Compra'
      FieldName = 'CLI_VALOR_LIMITE'
      DisplayFormat = '##,#0.00'
    end
    object cdsCadastroCLI_VALOR_CREDITO: TFloatField
      DisplayLabel = 'Cr'#233'dito'
      FieldName = 'CLI_VALOR_CREDITO'
      DisplayFormat = '##,#0.00'
    end
    object cdsCadastroCLI_DATA_LIMITE: TDateTimeField
      FieldName = 'CLI_DATA_LIMITE'
    end
    object cdsCadastroCLI_OBS_LIMITE: TStringField
      FieldName = 'CLI_OBS_LIMITE'
      Size = 255
    end
    object cdsCadastroCLI_TRAVAPEDIDO: TStringField
      FieldName = 'CLI_TRAVAPEDIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCLI_CODIGO_CONFERENCIA: TIntegerField
      FieldName = 'CLI_CODIGO_CONFERENCIA'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroCLI_TIPO_ENDERECO_CORRESP: TStringField
      FieldName = 'CLI_TIPO_ENDERECO_CORRESP'
      FixedChar = True
      Size = 3
    end
    object cdsCadastroCLI_NUMERO_ENDERECO_CORRESP: TStringField
      FieldName = 'CLI_NUMERO_ENDERECO_CORRESP'
      Size = 10
    end
    object cdsCadastroCLI_TIPO_ENDERECO_PEDIDO: TStringField
      FieldName = 'CLI_TIPO_ENDERECO_PEDIDO'
      FixedChar = True
      Size = 3
    end
    object cdsCadastroCLI_NUMERO_ENDERECO_PEDIDO: TStringField
      FieldName = 'CLI_NUMERO_ENDERECO_PEDIDO'
      Size = 10
    end
  end
  inherited OpenDialog1: TOpenDialog
    Left = 40
    Top = 152
  end
  object QCliente: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM cliente order by cli_CODIGO')
    Left = 208
    Top = 216
  end
  object DsCliente: TDataSource
    DataSet = QCliente
    OnStateChange = DsClienteStateChange
    Left = 240
    Top = 216
  end
end
